\\ Written by Donald T. Becker (dtbecker@prolog.net) IRC: StarDustr
// Please mail any bug reports/comments to the above address with a subject
\\ header of MCF.AMIRX.
//
\\ ** What to do with this file?
// Put this script in REXX: It will be used by MCF.AMIRX.
*/
;arg MCFenv auth Rnick junk;address value(MCFenv);DeLay=1;xl=pos(".",MCFenv)+1;Client=substr(MCFenv,xl);SFP="SFP."||Client;SFPflag=getclip(value(SFP));if SFPflag='Y' then exit;call setclip(value(SFP),'Y');CMC="CMDS."||Client;Cmds=getclip(value(CMC));mline.1="RAW PRIVMSG "Rnick" : Level | Available Commands";mline.2="RAW PRIVMSG "Rnick" :-------|------------------------------------------";parse value Cmds with Clev cmd.1 Cmds;cnt=1;do ant=3 by 1 until Cmds="";Cline="RAW PRIVMSG "Rnick" : "||Clev||" | ";do until lev.cnt ~=Clev;cnt=cnt+1;xnt=cnt-1;Cline=Cline cmd.xnt;parse value Cmds with lev.cnt cmd.cnt Cmds;end;if auth ~<Clev then mline.ant=Cline;Clev=lev.cnt;end ant;ant=ant+1;mline.ant="RAW PRIVMSG "Rnick" :--------------------------------------------------";ant=ant+1;mline.ant="RAW PRIVMSG "Rnick" :Your level is "||auth||". Type %HELP Command for more Info.";do bnt=1 by 1 until ant=bnt;mline.bnt;address command wait DeLay sec;end bnt;call setclip(value(SFP));exit
